home *** CD-ROM | disk | FTP | other *** search
/ Business & Presentations / Business and Presentations - Volume 1 (1995)(Sideface)(NL).iso / gfxapps / dos / alterfnt / putfnt.prg < prev    next >
Text File  |  1988-01-24  |  3KB  |  52 lines
  1. «GLBEGIN» [This is a XyWrite programfile. View in Expanded Mode]
  2.  
  3.  
  4.         PUTFNT.PRG, for XyWrite only, recursively calls ALTERFNT and creates
  5. a single large TEMPLATE.FNT file consisting of all characters in range 33-127
  6. derived from TMS12.FT.  At label «LB_START_CODE», the first character number
  7. (33) in the range is loaded in Save/Get «SX01»; at label «LB_END_CODE», the
  8. last number (127) is loaded in Save/Get «SX02».
  9.  
  10.     Put a complete Roman-8 set (character runs 33-127, 161-176, 179-241,
  11. and 246-254) in a font, by inserting the following «LBOPTIONAL» program code
  12. between <<LBEND>> and BC es 0XC :
  13.  
  14. «LBOPTIONAL»«IF«PV03»==1»«SX01,161»«SX02,176»«SX03,2»«GLSTART»«EI»«IF«PV03»==2»«SX01,179»«SX02,241»«SX03,3»«GLSTART»«EI»«IF«PV03»==3»«SX01,246»«SX02,254»«SX03,0»«GLSTART»«EI»
  15.  
  16.     Adapt PUTFNT.PRG as required.
  17.  
  18.  
  19.  
  20. «LBBEGIN»«LB COMMENT
  21.  
  22. This is the code of the starting character:»«LB_START_CODE:»«SX01,33»«LB COMMENT
  23.  
  24. This is the code of the ending character:»«LB_END_CODE:»«SX02,127»«LB COMMENT
  25.  
  26. Turn off error-beep; set «SX03» to 1 in case «LBOPTIONAL» code is used:» ües 1 ü    «SX03,1»«LB COMMENT
  27.  
  28. Mark position for repeated processing:»«LBSTART»«LB COMMENT
  29.  
  30. Erase old BINPIC:» üdos /c if exist binpic.tmp del binpic.tmp ü     üwait ü    «LB COMMENT
  31.  
  32. Now process source_file:» üdos /c alterfnt tms12.ft «PV01» ü     ües 1 ü    «LB COMMENT
  33.  
  34. Check whether the source_file had a character code with the current number (if
  35. not, no BINPIC.TMP was generated):» üexist binpic.tmp ü    «IF«ER»==TRUE»«GL_JUMP2»«EI»«LB COMMENT
  36.  
  37. Get source_file BINPIC into a window, then delete it as a file:» üca binpic.tmp ü     üwait ü     üdel binpic.tmp ü     üwait ü    «LB COMMENT
  38.  
  39. Process write_file BINPIC, check again whether it found the character, and if
  40. it's good, call it into a different window:» üdos /c alterfnt template.fnt «PV01» ü     ües 1 ü     üexist binpic.tmp ü    «IF«ER»==TRUE»«GL_JUMP1»«EI» üca binpic.tmp ü     üwait ü    «LB COMMENT
  41.  
  42. Do block delete on bottom portion of write_file BINPIC, move bottom portion of
  43. source_file BINPIC to the write_file BINPIC, and store altered BINPIC:» Ç} ÇU ÇU ÇU ÇU ÇU ÇU ÇU Çk ÇM Çk Ç╤ ÇK Ç} ÇU ÇU ÇU ÇU ÇU ÇU ÇU Çk ÇM Çk ÇK Ç} Ça üsa ü     üwait ü    «LB COMMENT
  44.  
  45. Construct a new TEMPFONT file, then copy it back to source_file with /PC
  46. switches:» üdos /c alterfnt /pc ü    «LB COMMENT
  47.  
  48. The JUMP# locations are arranged to close windows holding BINPIC if required:» üab ü    «LB_JUMP1» üab ü    «LB_JUMP2»«LB COMMENT
  49.  
  50. Are we finished?:»«IF(«IS01»==«IS02»)»«GLEND»«EI»«LB COMMENT
  51.  
  52. Not finished:»«SX01,«PV01»+1»«GLSTART»«LBEND» ües 0 ü    «PR Done!»«EX»